home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / progba_1 / frmdemo.frm < prev    next >
Text File  |  1999-01-05  |  29KB  |  855 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form frmProgressBarDemo 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "ProgBar Control V1.2.1 Demo"
  6.    ClientHeight    =   7785
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   8760
  10.    ClipControls    =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   7785
  15.    ScaleWidth      =   8760
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin NEProgBar.ProgBar ProgBar12 
  19.       Align           =   4  'Align Right
  20.       Height          =   6795
  21.       Left            =   8265
  22.       Top             =   495
  23.       Width           =   495
  24.       _ExtentX        =   873
  25.       _ExtentY        =   11986
  26.       FillDirection   =   1
  27.       Message         =   "Hello"
  28.       ShowMessage     =   -1  'True
  29.       ShowPercent     =   -1  'True
  30.       VerticalText    =   -1  'True
  31.    End
  32.    Begin NEProgBar.ProgBar ProgBar11 
  33.       Align           =   2  'Align Bottom
  34.       Height          =   495
  35.       Left            =   0
  36.       Top             =   7290
  37.       Width           =   8760
  38.       _ExtentX        =   15452
  39.       _ExtentY        =   873
  40.       FillDirection   =   2
  41.       ShowMessage     =   -1  'True
  42.       ShowPercent     =   -1  'True
  43.    End
  44.    Begin NEProgBar.ProgBar ProgBar10 
  45.       Align           =   1  'Align Top
  46.       Height          =   495
  47.       Left            =   0
  48.       Top             =   0
  49.       Width           =   8760
  50.       _ExtentX        =   15452
  51.       _ExtentY        =   873
  52.       Message         =   "Hello"
  53.       ShowMessage     =   -1  'True
  54.       ShowPercent     =   -1  'True
  55.    End
  56.    Begin NEProgBar.ProgBar ProgBar9 
  57.       Align           =   3  'Align Left
  58.       Height          =   6795
  59.       Left            =   0
  60.       Top             =   495
  61.       Width           =   495
  62.       _ExtentX        =   873
  63.       _ExtentY        =   11986
  64.       FillDirection   =   0
  65.       Message         =   "Hello"
  66.       ShowMessage     =   -1  'True
  67.       ShowPercent     =   -1  'True
  68.       VerticalText    =   -1  'True
  69.    End
  70.    Begin VB.Frame Frame3 
  71.       Caption         =   "Down"
  72.       Height          =   4335
  73.       Left            =   6840
  74.       TabIndex        =   27
  75.       Top             =   480
  76.       Width           =   1335
  77.       Begin NEProgBar.ProgBar ProgBar3 
  78.          Height          =   3975
  79.          Left            =   120
  80.          Top             =   240
  81.          Width           =   495
  82.          _ExtentX        =   873
  83.          _ExtentY        =   7011
  84.          FillDirection   =   1
  85.          Message         =   "Hello"
  86.          ShowMessage     =   -1  'True
  87.          ShowPercent     =   -1  'True
  88.          VerticalText    =   -1  'True
  89.       End
  90.       Begin NEProgBar.ProgBar ProgBar4 
  91.          Height          =   3975
  92.          Left            =   720
  93.          Top             =   240
  94.          Width           =   495
  95.          _ExtentX        =   873
  96.          _ExtentY        =   7011
  97.          BorderStyle     =   0
  98.          FillDirection   =   1
  99.          Message         =   "Hello"
  100.          ShowMessage     =   -1  'True
  101.          ShowPercent     =   -1  'True
  102.          VerticalText    =   -1  'True
  103.       End
  104.    End
  105.    Begin VB.Frame Frame2 
  106.       Caption         =   "Up"
  107.       Height          =   4335
  108.       Left            =   5400
  109.       TabIndex        =   26
  110.       Top             =   480
  111.       Width           =   1335
  112.       Begin NEProgBar.ProgBar ProgBar1 
  113.          Height          =   3975
  114.          Left            =   120
  115.          Top             =   240
  116.          Width           =   495
  117.          _ExtentX        =   873
  118.          _ExtentY        =   7011
  119.          FillDirection   =   0
  120.          Message         =   "Hello"
  121.          ShowMessage     =   -1  'True
  122.          ShowPercent     =   -1  'True
  123.          VerticalText    =   -1  'True
  124.       End
  125.       Begin NEProgBar.ProgBar ProgBar2 
  126.          Height          =   3975
  127.          Left            =   720
  128.          Top             =   240
  129.          Width           =   495
  130.          _ExtentX        =   873
  131.          _ExtentY        =   7011
  132.          BorderStyle     =   0
  133.          FillDirection   =   0
  134.          Message         =   "Hello"
  135.          ShowMessage     =   -1  'True
  136.          ShowPercent     =   -1  'True
  137.          VerticalText    =   -1  'True
  138.       End
  139.    End
  140.    Begin VB.Frame Frame1 
  141.       Caption         =   "Options"
  142.       Height          =   4335
  143.       Left            =   600
  144.       TabIndex        =   16
  145.       Top             =   480
  146.       Width           =   4695
  147.       Begin VB.CheckBox chkWaitForSound 
  148.          Caption         =   "Wait for sound"
  149.          Enabled         =   0   'False
  150.          Height          =   255
  151.          Left            =   2040
  152.          TabIndex        =   9
  153.          Top             =   2040
  154.          Width           =   1695
  155.       End
  156.       Begin VB.CommandButton cmdSoundToPlay 
  157.          Caption         =   "Sound"
  158.          Enabled         =   0   'False
  159.          Height          =   255
  160.          Left            =   3840
  161.          TabIndex        =   10
  162.          Top             =   2280
  163.          Width           =   735
  164.       End
  165.       Begin VB.TextBox txtSoundToPlay 
  166.          Enabled         =   0   'False
  167.          Height          =   285
  168.          Left            =   240
  169.          TabIndex        =   37
  170.          TabStop         =   0   'False
  171.          Top             =   2280
  172.          Width           =   3495
  173.       End
  174.       Begin VB.CheckBox chkPlaySound 
  175.          Caption         =   "Play sound @ 100%"
  176.          Height          =   255
  177.          Left            =   240
  178.          TabIndex        =   8
  179.          Top             =   2040
  180.          Width           =   1935
  181.       End
  182.       Begin VB.TextBox txtColour4 
  183.          BackColor       =   &H00FF0000&
  184.          Height          =   285
  185.          Left            =   3480
  186.          Locked          =   -1  'True
  187.          TabIndex        =   36
  188.          TabStop         =   0   'False
  189.          Top             =   3840
  190.          Width           =   1095
  191.       End
  192.       Begin VB.TextBox txtColour3 
  193.          BackColor       =   &H00000000&
  194.          Height          =   285
  195.          Left            =   3480
  196.          Locked          =   -1  'True
  197.          TabIndex        =   35
  198.          TabStop         =   0   'False
  199.          Top             =   3480
  200.          Width           =   1095
  201.       End
  202.       Begin VB.TextBox txtColour2 
  203.          BackColor       =   &H000000FF&
  204.          Height          =   285
  205.          Left            =   3480
  206.          Locked          =   -1  'True
  207.          TabIndex        =   34
  208.          TabStop         =   0   'False
  209.          Top             =   3120
  210.          Width           =   1095
  211.       End
  212.       Begin VB.TextBox txtColour1 
  213.          BackColor       =   &H00FFFFFF&
  214.          Height          =   285
  215.          Left            =   3480
  216.          Locked          =   -1  'True
  217.          TabIndex        =   33
  218.          TabStop         =   0   'False
  219.          Top             =   2760
  220.          Width           =   1095
  221.       End
  222.       Begin VB.CheckBox chkGradient 
  223.          Caption         =   "Gradient"
  224.          Height          =   255
  225.          Left            =   2040
  226.          TabIndex        =   7
  227.          Top             =   1800
  228.          Width           =   1095
  229.       End
  230.       Begin VB.CheckBox chkSolid 
  231.          Caption         =   "Solid"
  232.          Height          =   255
  233.          Left            =   240
  234.          TabIndex        =   6
  235.          Top             =   1800
  236.          Value           =   1  'Checked
  237.          Width           =   735
  238.       End
  239.       Begin VB.CommandButton cmdRunBars 
  240.          Caption         =   "Run Bars"
  241.          Height          =   615
  242.          Left            =   3480
  243.          TabIndex        =   15
  244.          Top             =   1320
  245.          Width           =   975
  246.       End
  247.       Begin VB